Amiga Plus Special 4/Amiga Plus Sonderheft 1996 #4.iso/maxonmultimedia-demo/install-maxonmm

Text File | 1996-01-08 | 5KB | 240 lines

; $VER: MaxonMULTIMEDIA-Demo Install Version 1.0 (22.06.95)
; Script zum Installieren von MaxonMULTIMEDIA Demoversion
;
;============================
;=== Deutsche Erklärungen ===
;============================
(set #introduction
(cat "\nMit diesem Installationsprogramm können Sie\n\nMaxonMULTIMEDIA Demoversion\n\n auf einer "
     "Festplatte installieren bzw. eine vorhandene Version updaten."
     "Die komplette Installation läuft "
     "automatisch ab. "
     "Auf Ihrer Festplatte muß mindestens 2 MB Platz frei sein!\n\n"))

(set #askdir-help
(cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
     "Sie gerne MaxonMULTIMEDIA installieren möchten. Sie müssen KEIN Verzeichnis "
     "anlegen, da das Installationsprogramm dies automatisch macht! "

      "\nSie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
      "eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
      "dieser Übersicht sollten Sie nur die oberen, nicht farblich "
      "gekennzeichneten Einträge auswählen.\n"
      "Typische sinnvolle Namen sind z.B. \"WORK:\", \"HD0:\" oder \"DH0:\"; "
      "nicht verwenden sollten Sie Namen wie \"DF0:\", \"DF1:\", "
      "\"DF2:\", \"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
      "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!"
      "\n\n"
      ))

(set #help-startup
(cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
     "In ihr befinden sich spezielle Kommandos, die einige Programme "
     "bereits beim Systemstart ausführen.\n\n"))


(set #no-inst
(cat "\nDer Platz auf der von Ihnen gewählten Partition reicht nicht aus, um die "
     "MaxonMULTIMEDIA-Dateien zu kopieren\n\n"
     "!!! Die Installation wird abgebrochen !!!"))


(set #COPVERZ    (cat "\nAuf welcher Partition soll MaxonMULTIMEDIA\nangelegt werden?"
                          "\nDas Verzeichnis \"MaxonMULTIMEDIA-Demo\" wird automatisch erzeugt!"
))

(set #SIZE 1)

(set @language "Deutsch")

(set os-version (/ (getversion) 65536))
(set os-13 (< os-version 36))
(set os-20 (>= os-version 36))
(set os-21 (>= os-version 38))


(Procedure Inst_LhaFiles
    (working @Working)
    (run ("RAM:Lhx -E -N x %s \"%s/\"" @Source @Dest))
)

(Procedure Inst_NormFiles
    (if (< (getdiskspace @Dest) @Size)
        (abort #no-inst))

    (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
    (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
)

(Procedure Inst_PatternFiles
    (if (< (getdiskspace @Dest) @Size)
        (abort #no-inst))

    (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
    (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
)



(message #introduction)
(welcome)
(set old_level @user-level)

(complete 0)


(set @default-dest                           ; Verzeichnis aussuchen
    (askdir
        (prompt #COPVERZ)
        (help    #askdir-help)
        (default "WORK:")
    )
)

(set @default-dest (tackon @default-dest "MaxonMULTIMEDIA-Demo"))
(set @default-src "")



(if                                          ; Verzeichnis erzeugen
    (= (exists @default-dest) 0)
    (makedir @default-dest)
)




(complete 1)



(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "MMM-Demo")
    (set @Size #SIZE)
    (Inst_PatternFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "font-assign")
    (set @Size #SIZE)
    (Inst_PatternFiles)
)



(complete 10)


(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Pictures")
    (Inst_PatternFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "c")
    (Inst_PatternFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Animations")
    (Inst_PatternFiles)
)


(complete 30)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "fonts")
    (Inst_PatternFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Brushes")
    (Inst_PatternFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Sounds")
    (Inst_PatternFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Music")
    (Inst_PatternFiles)
)

(complete 60)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Texts")
    (Inst_PatternFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Scripts")
    (Inst_PatternFiles)
)

(complete 80)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @FName "Produktinfo")
    (Inst_NormFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @FName "Vollversion")
    (Inst_NormFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @FName "Bitte_lesen!")
    (Inst_NormFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @FName "mmmlibs")
    (Inst_NormFiles)

)


(complete 100)

; ------- FERTIG

(exit)

;=============================================================================